home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak - Disc 3 / Infomagic - Windows 3-Pak (Disc 3 of 3).iso / Telnet-Clients / HOSTACCESS.exe / MISC.1 / INSTALL.UNI < prev    next >
Text File  |  1998-12-02  |  1KB  |  56 lines
  1. * $Workfile:   INSTALL.UNI  $
  2. * $Revision:   1.0.1.3  $
  3. *  $Modtime:   02 Dec 1998 15:41:48  $
  4. *
  5. BASICTYPE 'P'
  6.  
  7. ECLTYPE "P"
  8.  
  9. AE PIX.PROGS.F PIX_LOADER
  10. DE999
  11. I
  12. SUBROUTINE PIX_LOADER(PN,DN)
  13. FN="PIX.PROGS.F"
  14. OPEN "",FN TO FI ELSE PRINT "No ":FN:" file.";STOP
  15. PROMPT "";DIM RE(2000);MAT RE=""
  16. C1=1;ER=0;ST=0;DA="";PRINT CHAR(27):"_B":DN:CHAR(27):"\":
  17. 10 INPUT LI:;CS=LI[1,1];LN=LEN(LI);LI=LI[2,LN];AK="N"
  18. IF CS=CHAR(LN+32) THEN AK="Y";RE(C1)=LI;C1=C1+1
  19. PRINT CHAR(2):AK;IF LI="FINISH" THEN GOTO 20
  20. GOTO 10
  21. 20 INPUT LI:;PRINT CHAR(2):"Y";IF LI#0 THEN PRINT "Load Error <":LI:">, please retry";STOP
  22. RE(C1-1)="";MATWRITE RE ON FI,PN
  23. RETURN
  24. END
  25.  
  26. FI
  27. AE PIX.PROGS.F PIX_BOOTSTRAP
  28. DE999
  29. I
  30. PF="PIX.PROGS.F";PI="PIX_INSTALL"
  31. PRINT CHAR(27):"[=13l":
  32. PRINT @(0):
  33. PRINT CHAR(27):"[=13h":
  34. PRINT "Timer delay, please wait ...."
  35. X=TIME()
  36. LOOP UNTIL TIME()>(X+10) DO
  37. X=X
  38. REPEAT
  39. CALL PIX_LOADER(PI,"INSTALL.BOT")
  40. SLEEP 5
  41. EXECUTE "BASIC ":PF:" ":PI
  42. SLEEP 2
  43. EXECUTE "CATALOG ":PF:" ":PI:" DIRECT FORCE"
  44. SLEEP 2
  45. CHAIN PI
  46. END
  47.  
  48. FI
  49. BASIC PIX.PROGS.F PIX_BOOTSTRAP
  50.  
  51. BASIC PIX.PROGS.F PIX_LOADER
  52.  
  53. CATALOG PIX.PROGS.F PIX_LOADER DIRECT FORCE
  54. CATALOG PIX.PROGS.F PIX_BOOTSTRAP DIRECT FORCE
  55. PIX_BOOTSTRAP
  56.